

(defstruct wrap-object ()
	   stream
	   member1
	   )

; the following is a desirable way to define metdods
'(defun-wm func-name :accessors stream member1 (object) )

(defun main ()
  (format t "wrap-object test~%"))